home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
bcsrce2.zip
/
FLASH.BC
< prev
next >
Wrap
Text File
|
1990-10-18
|
1KB
|
74 lines
ansi
let %!w = %1
if %!w0 = 0 let %!w = 1
let %!t = %!w
LT %!t 1
if not errorlevel 0 let %!w = 1
save_screen
cls
let %!a = 0
do_while %!a = 0
gosub MIDLO
box 11 32 13 48
gosub TESTER
gosub MIDHI
box 10 30 14 50
gosub TESTER
gosub MIDLO
box 9 28 15 52
gosub TESTER
gosub MIDHI
box 8 26 16 54
gosub TESTER
gosub MIDLO
box 7 24 17 56
gosub TESTER
gosub MIDHI
box 6 22 18 58
gosub TESTER
gosub MIDLO
box 5 20 19 60
gosub TESTER
wait %!w
cls
gosub MIDLO
double_box 5 20 19 60
gosub TESTER
gosub MIDHI
double_box 6 22 18 58
gosub TESTER
gosub MIDLO
double_box 7 24 17 56
gosub TESTER
gosub MIDHI
double_box 8 26 16 54
gosub TESTER
gosub MIDLO
double_box 9 28 15 52
gosub TESTER
gosub MIDHI
double_box 10 30 14 50
gosub TESTER
gosub MIDLO
double_box 11 32 13 48
gosub TESTER
wait %!w
cls
end_while
:TESTER
keypressed
error_level %!a
if not %!a = 0 goto END
RETURN
:MIDHI
locate 12 34
echonolf Press any key
RETURN
:MIDLO
locate 12 34
echonolf
Press any key
RETURN
:END
restore_screen
exit